400
 350 if PX(X+2,Y+2)=0gosub 470;Q=0;if B=0goto 190
 360 if (X<-70)+(X>65)H=-H;MU=60
 370 if (Y<-35)+(Y>30)V=-V;MU=60
 380 Q=Q-1;if Q>0goto 300
 390 goto 210
 400 MU=50;if B=0box X,Y,3,3,3
 410 if B>7box X,Y,1,3,3
 420 if B=8box X,Y,3,1,3
 430 box X,Y,5,5,3;return 
 440 @(33)=@(33)+6;if B>8@(33)=@(33)-6;@(34)=@(34)+6
 450 return 
 460 X=@(B)mul 6-75;Y=@(B+16)mul 6-44;return 
 470 gosub 400;Y=41;X=@(33);@(B)=0;if B>8X=@(34)
 480 MU=70;MU=70;MU=70
 490 gosub 400;gosub 440
 500 if B#0T=T+1
 510 if T=15goto 540
 520 if E=56if B=8goto 540
 530 return 
 540 box 0,0,146,50,2;CX=-23;CY=8;print "GAME OVER
 550 print ;CX=-41;if T#15print "8 BALL LOSER
 560 CX=-41;print "TOTAL SHOTS=",#1,S
 570 if TR(1)=0goto 570
 580 goto 
 590 .RESQ
 600 N=0;@(0)=%(-